home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 2.iso / bin / set_names < prev    next >
Encoding:
Text File  |  1996-11-11  |  300 b   |  16 lines
  1. #!/bin/perl
  2. $ENV{'PATH'} = "/usr/bsd:/bin/:/usr/bin:/usr/sbin:/usr/bin/X11";
  3. $ENV{'HOSTRESORDER'} = "$ARGV[0]";
  4.  
  5. if (open(IN, "/etc/sys_id")) {
  6.     $name = <IN>;
  7.     chop($name);
  8.     ($name) =  gethostbyname($name);
  9.     close(IN);
  10. }
  11. if ($name =~ /([^\.]*)\.(.*)/) {
  12.     print "$1 $2\n";
  13. } else {
  14.     print "$name\n"
  15. }
  16.